home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Examples / card_9086.txt < prev    next >
Text File  |  1990-04-09  |  3KB  |  92 lines
  1. -- card: 9086 from stack: in
  2. -- bmap block id: 9358
  3. -- flags: 0000
  4. -- background id: 4709
  5. -- name: Manuals
  6. ----- HyperTalk script -----
  7. on openCard
  8.   ResetMenuField
  9. end openCard
  10.  
  11. on mouseUp
  12.   visual dissolve slow to card
  13.   pop card
  14.   ResetMenuField
  15. end mouseUp
  16.  
  17. on ResetMenuField
  18.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & "‚Ä¢Manuals" & return into card field "Select Field"
  19. end ResetMenuField
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0001
  25. -- rect: left=431 top=277 right=307 bottom=474
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Cover
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 2004
  39. -- rect: left=26 top=76 right=233 bottom=192
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Select Field
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   global whichExample,showState
  51.   put empty into whichExample
  52.   put empty into showState
  53.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  54.   if line clickLine of me is not empty then
  55.     put word 1 of line clickLine of card field "Select Field" into whichExample
  56.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  57.     push card
  58.     visual dissolve to card
  59.     go to card whichExample
  60.   else
  61.     if line clickLine of me is not empty and whichExample is "Science &" then
  62.       push card
  63.       visual dissolve to card
  64.       go to card "Science & Engineering"
  65.     else
  66.       if line clickLine of me is not empty and whichExample is "HyperCard Stack" then
  67.         push card
  68.         visual dissolve to card
  69.         go to card "HyperCard Stack"
  70.       end if
  71.     end if
  72.   end if
  73. end mouseUp
  74.  
  75. on ResetMenuField
  76.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  77. end ResetMenuField
  78.  
  79.  
  80.  
  81. -- part contents for card part 3
  82. ----- text -----
  83.  Newsletters
  84.  Graphic Design
  85.  Illustrations
  86.  Presentations
  87.  Document Processing
  88.  Databases
  89.  Brochures
  90.  Image Transmission
  91. •Manuals
  92.